home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / NewDotTunnel.AMOS / NewDotTunnel.amosSourceCode
AMOS Source Code  |  1997-04-18  |  1KB  |  49 lines
  1. Screen Open 0,320,256,8,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. Double Buffer : Autoback 0
  4. Palette 0,$444,$888,$FFF
  5. If Length(9)=0
  6.   Reserve As Data 9,128*512*2
  7.   ST=Start(9)
  8.   For A=0 To 127
  9.     D=2000/((256-A*2)+10)
  10.     For W=0 To 511
  11.       DD= Extension_8_1106(W*2,D+((D*Abs((W and 63)-32))/64))
  12. '      DD=Qsin(W*2,D)
  13.       Doke ST,DD : Add ST,2
  14.     Next 
  15.   Next 
  16. End If 
  17. Reserve As Work 10,Screen Height*2
  18. ST=Start(10)
  19. B=0
  20. For A=0 To Screen Height-1
  21.   Doke ST,B : Add ST,2
  22.   Add B,Screen Width/8
  23. Next 
  24. ST=Start(9)
  25. R=0 : S=0
  26. Do 
  27.   Screen Swap 
  28.   Wait Vbl 
  29.    Extension_8_121C 0,0
  30.    Extension_8_121C 0,1
  31.    Extension_8_1258 
  32.   For R=0 To 127 Step 8
  33.     RR=(R+S) and 127
  34.     X=160+ Extension_8_1106(S*8-RR*4,32+ Extension_8_1114(S*2,32))
  35.     Y=128+ Extension_8_1114(S*8-RR*4,32+ Extension_8_1106(S*2,32))
  36.     If RR<50 or RR>100
  37.       D0TTUNNEL[Start(10),Start(9)+RR*1024,X,Y,0,S-R,8]
  38.     End If 
  39.     If RR>49
  40.       D0TTUNNEL[Start(10),Start(9)+RR*1024,X,Y,1,S-R,8]
  41.     End If 
  42.   Next 
  43.   Inc S
  44. Loop 
  45. ' Screentable, Sinetable, Mx, My, Bp, Wa, Step 
  46. Procedure D0TTUNNEL[STABLE,SITABLE,MX,MY,BP,SA,STE]
  47.    ' COMPILED PROCEDURE -- can't convert this to AMOS code
  48. End Proc
  49. 'Procedure D0TTUNNEL[STABLE,SITABLE,MX,MY,BP,SA,STE]